home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / ums / pint.lha / UMS / Rexx / PGPAddKey.pint < prev    next >
Text File  |  1997-03-04  |  1KB  |  63 lines
  1. /****** PGPAddKey.pint ******************************************************
  2.  
  3.     NAME
  4.       $VER: PGPAddKey.pint 1.0 (29.3.95)
  5.  
  6.     Updated for PINT (22.2.97):
  7.      Magnus Heino (nd95mho@Student.HGS.SE)
  8.  
  9.     SYNOPSIS
  10.       add a PGP public-key found in a message to your PGP-keyring
  11.  
  12.     AUTHOR
  13.       Olaf Peters
  14.       Kulmer Str. 7
  15.       28237 Bremen
  16.  
  17.       op@hb2.maus.de / olf@informatik.uni-bremen.de
  18.  
  19.     INSTALLATION
  20.       Copy PGPAddKey.pint to the place where your other
  21.       PINT-ARexx-Script are located.
  22.  
  23.     NOTES
  24.       PGPAddKey.pint is based upon PGPDecrypt.pint by Matthias Scheler
  25.  
  26.       PGPAddKey.pint should only be called from PINT's message-window.
  27.  
  28.     SEE ALSO
  29.       PINT's documentation about installing and calling ARexx-script
  30.       from within PINT.
  31.  
  32. ******************************************************************************
  33. *
  34. */
  35.  
  36. /* Exit if Message Window is not active. */
  37.  
  38. OPTIONS RESULTS
  39.  
  40. STATUS
  41. IF RESULT~="MESSAGE" THEN EXIT 5
  42.  
  43. /* We get PINT's message number, ... */
  44.  
  45. GETMSGNUM
  46. MsgNum=RESULT
  47.  
  48. /* ... save the message, ... */
  49.  
  50. 'SAVEMSGBODY' MsgNum 'TO T:PINT.pgp'
  51.  
  52. /* ... call PGP, ... */
  53.  
  54. SHELL COMMAND 'pgp +BATCHMODE -ka T:PINT.pgp > T:PINT.PGPOut'
  55.  
  56. /* ... and show the output of PGP in the messagewindow ... */
  57.  
  58. 'REPLACEMSGBODY WITH T:PINT.pgpout'
  59.  
  60. /* cleanup */
  61.  
  62. SHELL COMMAND 'Delete T:PINT.(pgp|pgpout) QUIET'
  63.